【代码模板004】VBA快速删除工作表

您所在的位置:网站首页 vba 选定工作表 【代码模板004】VBA快速删除工作表

【代码模板004】VBA快速删除工作表

2024-01-17 12:30| 来源: 网络整理| 查看: 265

在博文 VBA添加工作表详解 中为大家讲了如何使用一句代码在指定位置插快速入指定名称的工作表。但是如果工作簿中已经存在同名工作表,那么运行时错误’1004‘就不期而遇的跳了出来。 老规则 —— 先删除再创建,删除工作表很简单嘛,Sheets(..).Delete一句代码搞定。怎么又弹出一个消息窗口,Excel的产品经理考虑过宝宝们的用户体验吗!?删除工作表也搞得这么复杂,又不是从银行账户里转走500万。 每次都这么麻烦,必须拿出VBA来搞定它了。

Sub DelSheet(vShtName, Optional sWkName As String) Dim sName With Application .DisplayAlerts = False On Error Resume Next If Len(sWkName) > 0 Then Set objWk = ActiveWorkbook Else Set objWk = Workbooks(sWkName) End If If VBA.IsArray(vShtName) Then For Each sName In vShtName objWk.Sheets(sName).Delete Next Else objWk.Sheets(sShtName).Delete End If On Error GoTo 0 .DisplayAlerts = True End With End Sub

这个事儿整的似乎有点儿大,一句代码怎么被扩展成了20多行。莫急,俗话说工欲善其事,必先利其器,以后调用起来就so easy。

Sub Demo() '删除单个工作表 DelSheet Array("sheet1") '删除多个工作表,并指定工作簿 DelSheet Array("sheet3", "sheet4"), "MyData.xlsx" End Sub

无论是当前工作簿还是其他工作簿,即可以删除单个工作表,又可以删除一组工作表,随心所欲一句代码就搞定。



【本文地址】


今日新闻


推荐新闻


CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3